﻿Imports System.IO

Namespace Project
    Public Class ProjectFolder

        Private _dirinfo As DirectoryInfo
        Public ReadOnly Property DirectoryInfo As DirectoryInfo
            Get
                Return _dirinfo
            End Get
        End Property

        Public ReadOnly Property FullName As String
            Get
                Return _dirinfo.FullName
            End Get
        End Property

        ' Path to folder
        Public Sub New(ByRef fullpath As String)
            _dirinfo = New DirectoryInfo(fullpath)
        End Sub

        Public Sub New(ByRef dirinfo As DirectoryInfo)
            _dirinfo = dirinfo
        End Sub


        Public Sub OpenPath()
            Dim proc As New Process()
            Dim startinfo As New ProcessStartInfo
            startinfo.FileName = Globals.kDefaultExplorer
            startinfo.Arguments = FullName
            proc.StartInfo = startinfo
            proc.Start()
        End Sub

    End Class
End Namespace